home *** CD-ROM | disk | FTP | other *** search
- /*
- ** $PROJECT: HyperText-DataType-System
- **
- ** $VER: getobjectinfo.rexx 40.1 (29.08.96)
- **
- ** by
- **
- ** Stefan Ruppert , Windthorststrasse 5 , 65439 Floersheim , GERMANY
- **
- ** (C) Copyright 1996
- ** All Rights Reserved !
- **
- ** $HISTORY:
- **
- ** 29.08.96 : 040.001 : initial
- **
- */
-
- options results
-
- ADDRESS 'MULTIVIEW.1.1'
-
- title = 'none'
- file = 'none'
- nodename = 'none'
-
- 'GETATTR OBJECT=OBJECT FIELD=TITLE VAR=TITLE'
- 'GETATTR OBJECT=OBJECT FIELD=PATH VAR=PATH'
- 'GETATTR OBJECT=OBJECT FIELD=NODENAME VAR=NODENAME'
-
- Say 'Object Title : "' || title || '"'
- Say 'Object File : "' || path || '"'
- Say 'Object Node : "' || nodename || '"'
-
-
-